home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / dev / amos / KyzerAMOScode.lha / Lines.AMOS / Lines.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-03  |  892 b   |  35 lines
  1. Degree 
  2.  Extension_12_0016 
  3. _ZOOMGRID
  4.  Extension_12_0006 
  5. Procedure _ZOOMGRID
  6.    TM=Timer
  7.    Dim S(359),C(359) : For A=0 To 359 : S(A)=Sin(A)*16384 : C(A)=Cos(A)*16384 : Next A
  8.    '
  9.    Screen Open 0,320,256,2,0
  10.    Curs Off : Palette 0,0
  11.    Double Buffer : Autoback 0
  12.    '
  13.    Hide 
  14.    SZE=199
  15.    Fade 1,,$FFF
  16.    For SZE=300 To 55 Step -2 : Gosub A : Next 
  17.    For T=0 To 100 : Gosub A : Next T
  18.    For SZE=55 To 300 Step 2 : Gosub A : If SZE=271 : Fade 1 : End If : Next 
  19.    Repeat : Until Timer>=TM+384
  20.    Pop Proc
  21.    '
  22. A: Wait Vbl 
  23.     Extension_12_03A6 1
  24.    Add ROT,3,0 To 359
  25.    C=C(ROT) : MC=(200*C)/16384
  26.    S=S(ROT) : MS=(200*S)/16384
  27.    For Y=-200 To 200 Step SZE
  28.       NC=(Y*C)/16384
  29.       NS=(Y*S)/16384
  30.        Extension_12_04F0 160-MC-NS,128+NC-MS To 160+MC-NS,128+NC+MS
  31.        Extension_12_04F0 160+NC+MS,128-MC+NS To 160+NC-MS,128+MC+NS
  32.    Next Y
  33.    Screen Swap 
  34.    Return 
  35. End Proc